unit ClassUsuario;

interface
uses Classes;

type
  TUsuario = class
  private
    FID          : Integer;
    FNome        : String;
    FRegional    : Integer;
  public
    constructor Create(PID : Integer; PNome : String; PRegional : Integer);
    destructor Destroy;
  published
    property ID       : Integer read FID;
    property Nome     : String  read FNome;
    property Regional : Integer read FRegional;
 end;

implementation

{ TUsuario }

constructor TUsuario.Create(PID : Integer; PNome : String; PRegional : Integer);
begin
  inherited
  Create;
  FID       := PID;
  FNome     := PNome;
  FRegional := PRegional;
end;

destructor TUsuario.Destroy;
begin
  inherited;
end;

end.
